let (|Even|Odd|) input = if input % 2 = 0 then Even else Odd